home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Borland / Borland C++ V5.02 / SAMPLE.PAK / DLCTL.CPP next >
C/C++ Source or Header  |  1997-05-06  |  780b  |  29 lines
  1. //----------------------------------------------------------------------------
  2. // ObjectWindows - (C) Copyright 1991, 1994 by Borland International
  3. //   Tutorial application -- delphictl.cpp
  4. //----------------------------------------------------------------------------
  5. #include <owl/pch.h>
  6. #include <owl/applicat.h>
  7. #include <owl/framewin.h>
  8. #include "dlwrap.h"
  9. #include "testdll.h"
  10.  
  11.  
  12. class TDelphiCtlApp : public TApplication {
  13.   public:
  14.     TDelphiCtlApp() : TApplication() {}
  15.  
  16.     void InitMainWindow()
  17.     {
  18.       SetMainWindow(new TFrameWindow(0, "Sample OWL Window containing a Delphi control",
  19.       new TDelphiFormWrapper(MakeTestForm, 0, 0, 0))
  20.       );
  21.     }
  22. };
  23.  
  24. int
  25. OwlMain(int /*argc*/, char* /*argv*/ [])
  26. {
  27.   return TDelphiCtlApp().Run();
  28. }
  29.